GenInfoTable <- function(){
  # 天干之阴阳
  InfoTable <- data.frame(Tiangan = c('甲','乙','丙','丁','戊','己','庚','辛','壬','癸'))
  InfoTable$PosNeg <- '阳'
  InfoTable$PosNeg[InfoTable$Tiangan == '乙' | InfoTable$Tiangan == '丁'| InfoTable$Tiangan == '己' |
                     InfoTable$Tiangan == '辛' | InfoTable$Tiangan =='癸'] <- '阴'
  # 五行
  InfoTable$five <- '木'
  InfoTable$five[InfoTable$Tiangan == '丙' | InfoTable$Tiangan == '丁'] <- '火'
  InfoTable$five[InfoTable$Tiangan == '戊' | InfoTable$Tiangan == '己'] <- '土'
  InfoTable$five[InfoTable$Tiangan == '庚' | InfoTable$Tiangan == '辛'] <- '金'
  InfoTable$five[InfoTable$Tiangan == '壬' | InfoTable$Tiangan == '癸'] <- '水'
  
  # 生克
  InfoTable$FiveGen <- '火'
  InfoTable$FiveGen[InfoTable$five == '金'] <- '水'
  InfoTable$FiveGen[InfoTable$five == '水'] <- '木'
  InfoTable$FiveGen[InfoTable$five == '火'] <- '土'
  InfoTable$FiveGen[InfoTable$five == '土'] <- '金'
  InfoTable$FiveKill <- '火'
  InfoTable$FiveKill[InfoTable$five == '金'] <- '木'
  InfoTable$FiveKill[InfoTable$five == '木'] <- '土'
  InfoTable$FiveKill[InfoTable$five == '火'] <- '金'
  InfoTable$FiveKill[InfoTable$five == '土'] <- '水'
  
  # 藏支
  InfoTable$Di1 <- '子'
  InfoTable$Di2 <- NA
  InfoTable$Di3 <- NA
  InfoTable$Di4 <- NA
  InfoTable$Di5 <- NA
  InfoTable$Di1[InfoTable$Tiangan == '甲'] <- '寅'
  InfoTable$Di2[InfoTable$Tiangan == '甲'] <- '亥'
  
  InfoTable$Di1[InfoTable$Tiangan == '乙'] <- '卯'
  InfoTable$Di2[InfoTable$Tiangan == '乙'] <- '辰'
  InfoTable$Di3[InfoTable$Tiangan == '乙'] <- '未'
  
  InfoTable$Di1[InfoTable$Tiangan == '丙'] <- '寅'
  InfoTable$Di2[InfoTable$Tiangan == '丙'] <- '巳'
  
  InfoTable$Di1[InfoTable$Tiangan == '丁'] <- '午'
  InfoTable$Di2[InfoTable$Tiangan == '丁'] <- '未'
  InfoTable$Di3[InfoTable$Tiangan == '丁'] <- '戌'
  
  InfoTable$Di1[InfoTable$Tiangan == '戊'] <- '寅'
  InfoTable$Di2[InfoTable$Tiangan == '戊'] <- '辰'
  InfoTable$Di3[InfoTable$Tiangan == '戊'] <- '巳'
  InfoTable$Di4[InfoTable$Tiangan == '戊'] <- '申'
  InfoTable$Di5[InfoTable$Tiangan == '戊'] <- '戌'
  
  InfoTable$Di1[InfoTable$Tiangan == '己'] <- '丑'
  InfoTable$Di2[InfoTable$Tiangan == '己'] <- '午'
  InfoTable$Di3[InfoTable$Tiangan == '己'] <- '未'
  
  InfoTable$Di1[InfoTable$Tiangan == '庚'] <- '巳'
  InfoTable$Di2[InfoTable$Tiangan == '庚'] <- '申'
  
  InfoTable$Di1[InfoTable$Tiangan == '辛'] <- '丑'
  InfoTable$Di2[InfoTable$Tiangan == '辛'] <- '酉'
  InfoTable$Di3[InfoTable$Tiangan == '辛'] <- '戌'
  
  InfoTable$Di1[InfoTable$Tiangan == '壬'] <- '申'
  InfoTable$Di2[InfoTable$Tiangan == '壬'] <- '亥'
  
  InfoTable$Di1[InfoTable$Tiangan == '癸'] <- '子'
  InfoTable$Di2[InfoTable$Tiangan == '癸'] <- '丑'
  InfoTable$Di3[InfoTable$Tiangan == '癸'] <- '辰'
  return(InfoTable)
}